EIBRESP

Contient un numéro correspondant à la condition RESP rencontrée. ces numéros sont listés dans le tableau suivant (en valeur décimale) sur la première colonne. La seconde colonne indique la condition rencontrée.

Voir aussi les options RESP, RESP2 et la fonction DFHRESP

Format: PIC S9(8) COMP.

CODE

CONDITION

00

NORMAL

01

ERROR

02

RDATT

03

WRBRK

04

EOF

05

EODS

06

EOC

07

INBFMH

08

ENDINPT

09

NONVAL

10

NOSTART

11

TERMIDERR

12

FILENOTFOUND ou DSIDERR

13

NOTFND

14

DUPREC

15

DUPKEY

16

INVREQ

17

IOERR

18

NOSPACE

19

NOTOPEN

20

ENDFILE

21

ILLOGIC

22

LENGERR

23

QZERO

24

SIGNAL

25

QBUSY

26

ITEMERR

27

PGMIDERR

28

TRANSIDERR

29

ENDDATA

30

INVTSREQ

31

EXPIRED

32

RETPAGE

33

RTEFAIL

34

RTESOME

35

TSIOERR

36

MAPFAIL

37

INVERRTERM

38

INVMPSZ

39

IGREQID

40

OVERFLOW

41

INVLDC

42

NOSTG

43

JIDERR

44

QIDERR

45

NOJBUFSP

46

DSSTAT

47

SELNERR

48

FUNCERR

49

UNEXPIN

50

NOPASSBKRD

51

NOPASSBKWR

53

SYSIDERR

54

ISCINVREQ

55

ENQBUSY

56

ENVDEFERR

57

IGREQCD

58

SESSIONERR

59

SYSBUSY

60

SESSBUSY

61

NOTALLOC

62

CBIDERR

63

INVEXITREQ

64

INVPARTNSET

65

INVPARTN

66

PARTNFAIL

69

USERIDERR

70

NOTAUTH

72

SUPPRESSED

73

WRONGSTAT

74

NAMEERROR

76

CCERROR

77

MAPERROR

80

NOSPOOL

81

TERMERR

82

ROLLEDBACK

83

END

84

DISABLED

85

ALLOCERR

86

STRELERR

87

OPENERR

88

SPOLBUSY

89

SPOLERR

94

LOADING

Exemple: utilisation de la zone EIBRESP sur une commande RECEIVE MAP

 

WORKING-STORAGE SECTION.

01 CODE-RETOUR PIC S9(8) COMP.

PROCEDURE DIVISION

EXEC CICS RECEIVE

MAP(NOM-MAP)

MAPSET(NOM-MAPSET)

INTO(ZONE-MAP)

END-EXEC

IF EIBRESP = DFHRESP(MAPFAIL)

GO TO RESTAURER-ECRAN

END-IF

IF EIBRESP NOT = DFHRESP(NORMAL)

GO TO AUTRES-ERREURS

END-IF